home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / cmpnew / cmplabel.data < prev    next >
Encoding:
Text File  |  1994-05-10  |  2.9 KB  |  6 lines
  1.        
  2. #(#! 
  3. (lisp::in-package (lisp::quote user::compiler))
  4. #((lisp::cons (lisp::incf compiler::*last-label*) lisp::nil) (lisp::cons (lisp::incf compiler::*last-label*) lisp::t) lisp::when lisp::cdr compiler::wt-nl1 "T" lisp::car ":;" lisp::progn lisp::rplacd compiler::wt "goto T" ";" compiler::*inline-blocks* compiler::*compiler-output1* compiler::*vs* compiler::*record-call-info* compiler::fun-val compiler::*value-to-go* lisp::return compiler::top compiler::jump-true compiler::jump-false compiler::*unwind-exit* compiler::*exit* compiler::var (lisp::special compiler::global) (compiler::simple-call lisp::inline compiler::inline-cond compiler::inline-fixnum compiler::inline-character compiler::inline-integer compiler::inline-long-float compiler::inline-short-float) compiler::vs compiler::cvar compiler::bds-bind compiler::frame (compiler::simple-call lisp::inline compiler::inline-cond compiler::inline-fixnum compiler::inline-integer compiler::inline-character compiler::inline-long-float compiler::inline-short-float) compiler::*c-gc* compiler::tail-recursion-mark compiler::jump ((compiler::return-fixnum lisp::fixnum . compiler::wt-fixnum-loc) (compiler::return-character lisp::character . compiler::wt-character-loc) (compiler::return-short-float lisp::short-float . compiler::wt-short-float-loc) (compiler::return-long-float lisp::long-float . compiler::wt-long-float-loc) (compiler::return-object lisp::t . compiler::wt-loc)) compiler::*next-cvar* compiler::*reservation-cmacro* (lisp::return compiler::return-object compiler::return-fixnum compiler::return-character compiler::return-long-float compiler::return-short-float) compiler::wt1 compiler::record-call-info compiler::reset-top compiler::set-jump-true compiler::set-jump-false compiler::baboon compiler::unwind-bds compiler::set-loc compiler::cs-push compiler::vs-push compiler::wfs-error compiler::rep-type (system::%init . #((system::warn-version 0) (system::*make-special (lisp::quote compiler::*last-label*)) (lisp::or (lisp::boundp (lisp::quote compiler::*last-label*)) (lisp::setq compiler::*last-label* 0)) (system::*make-special (lisp::quote compiler::*exit*)) (system::*make-special (lisp::quote compiler::*unwind-exit*)) (system::*make-special (lisp::quote compiler::*record-call-info*)) (lisp::or (lisp::boundp (lisp::quote compiler::*record-call-info*)) (lisp::setq compiler::*record-call-info* lisp::nil)) (system::mm (lisp::quote compiler::next-label) 0) (system::mm (lisp::quote compiler::next-label*) 1) (system::mm (lisp::quote compiler::wt-label) 2) (system::mm (lisp::quote compiler::wt-go) 3) (system::*make-special (lisp::quote compiler::*restore-avma*)) (lisp::or (lisp::boundp (lisp::quote compiler::*restore-avma*)) (lisp::setq compiler::*restore-avma* lisp::nil)) (system::mfsfun (lisp::quote compiler::unwind-bds) 4 2) (system::mfvfun (lisp::quote compiler::unwind-exit) 5 769) (system::mfsfun (lisp::quote compiler::unwind-no-exit) 6 1) (system::mfsfun (lisp::quote compiler::tail-recursion-possible) 7 0))))
  5. )
  6.